home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
How Would You Survive?
/
How Would You Survive (1995)(Grolier)[Mac-PC].iso
/
pc
/
vikingw.dir
/
01648_Script_Home
< prev
next >
Wrap
Text File
|
1995-09-12
|
9KB
|
273 lines
global gbeenclicked, gQuest, gLeftHouseOpen, gRightHouseOpen
on VHomeRolloversLeft
set gbeenclicked = 0
if (not(CheckClickedStatus(gQuest))) then
if rollover(13) then
repeat while rollover(13)
ArrowCursor
set the locH of sprite 14 to 457
set the locV of sprite 14 to 338
updatestage
end repeat
set the locH of sprite 14 to 999
updatestage
else
if rollover(15) then
repeat while rollover(15)
ArrowCursor
resetRightHouse
set the locH of sprite 16 to 388
set the locV of sprite 16 to 127
updatestage
end repeat
set the locH of sprite 16 to 999
updatestage
else
if rollover(17) then
repeat while rollover(17)
ArrowCursor
set the locH of sprite 18 to 492
set the locV of sprite 18 to 261
updatestage
end repeat
set the locH of sprite 18 to 999
updatestage
else
if rollover(41) then
HandCursor
else
if rollover(42) then
HandCursor
else
if the mousecast = the castnum of sprite 8 then
repeat while the mousecast = the castnum of sprite 8
VikingCursor
if the mousedown then
puppetsprite 8, true
Puppetsound "SV220101.AIF"
updatestage
wait .5
set the locH of sprite 8 to -400
updatestage
set gLeftHouseOpen = 1
end if
end repeat
else
if rollover(11) then
if gLeftHouseOpen = 1 then
repeat while rollover(11)
ArrowCursor
set the locH of sprite 12 to 245
set the locV of sprite 12 to 374
updatestage
end repeat
set the locH of sprite 12 to 999
updatestage
end if
else
if rollover(19) then
if gLeftHouseOpen = 1 then
repeat while rollover(19)
ArrowCursor
set the locH of sprite 20 to 225
set the locV of sprite 20 to 313
updatestage
end repeat
set the locH of sprite 20 to 999
updatestage
end if
else
if rollover(21) then
if gLeftHouseOpen = 1 then
repeat while rollover(21)
ArrowCursor
set the locH of sprite 22 to 321
set the locV of sprite 22 to 358
updatestage
end repeat
set the locH of sprite 22 to 999
updatestage
end if
else
ArrowCursor
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
RandomQuestion(gQuest)
end
on VHomeRolloversRight
set gbeenclicked = 0
if (not(CheckClickedStatus(gQuest))) then
if rollover(6) then
ArrowCursor
repeat while rollover(6)
resetRightHouse
set the locH of sprite 27 to 457
set the locV of sprite 27 to 177
updatestage
end repeat
set the locH of sprite 27 to 999
updatestage
else
if rollover(48) then
ArrowCursor
repeat while rollover(48)
resetRightHouse
set the locH of sprite 28 to 451
set the locV of sprite 28 to 234
updatestage
end repeat
set the locH of sprite 28 to 999
updatestage
else
if rollover(9) then
ArrowCursor
repeat while rollover(9)
resetRightHouse
set the locH of sprite 39 to 451
set the locV of sprite 39 to 284
updatestage
end repeat
set the locH of sprite 39 to 999
updatestage
else
if rollover(10) then
ArrowCursor
repeat while rollover(10)
set the locH of sprite 11 to 277
set the locV of sprite 11 to 382
updatestage
end repeat
set the locH of sprite 11 to 999
updatestage
else
if rollover(12) then
ArrowCursor
repeat while rollover(12)
set the locH of sprite 13 to 397
set the locV of sprite 13 to 373
updatestage
end repeat
set the locH of sprite 13 to 999
updatestage
else
ArrowCursor
if rollover(14) then
repeat while rollover(14)
resetRightHouse
set the locH of sprite 15 to 550
set the locV of sprite 15 to 308
updatestage
end repeat
set the locH of sprite 15 to 999
updatestage
else
if rollover(17) then
ArrowCursor
repeat while rollover(17)
set the locH of sprite 18 to 339
set the locV of sprite 18 to 317
updatestage
end repeat
set the locH of sprite 18 to 999
updatestage
else
if rollover(21) then
ArrowCursor
repeat while rollover(21)
set the locH of sprite 22 to 457
set the locV of sprite 22 to 338
updatestage
end repeat
set the locH of sprite 22 to 999
updatestage
else
if the mousecast = the castnum of sprite 7 then
repeat while the mousecast = the castnum of sprite 7
VikingCursor
if the mousedown then
puppetsprite 7, true
PUPPETSOUND "SV220101.AIF"
updatestage
wait .5
set the locH of sprite 7 to -400
updatestage
set gRightHouseOpen = 1
end if
end repeat
ArrowCursor
else
if rollover(20) then
if gRightHouseOpen = 1 then
ArrowCursor
repeat while rollover(20)
set the locH of sprite 40 to 468
set the locV of sprite 40 to 167
updatestage
end repeat
set the locH of sprite 40 to 999
updatestage
end if
else
if rollover(16) then
ArrowCursor
if gRightHouseOpen = 1 then
repeat while rollover(16)
set the locH of sprite 43 to 535
set the locV of sprite 43 to 194
updatestage
end repeat
set the locH of sprite 43 to 999
updatestage
end if
else
ArrowCursor
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
RandomQuestion(gQuest)
end
on resetRightHouse
set the locH of sprite 7 to 401
set the locV of sprite 7 to 199
set gRightHouseOpen = 0
set the locH of sprite 8 to 155
set the locV of sprite 8 to 320
set gLeftHouseOpen = 0
puppetsprite 8, false
puppetsprite 7, false
updatestage
end
on resetLeftHouse
set the locH of sprite 8 to 155
set the locV of sprite 8 to 320
set gLeftHouseOpen = 0
set the locH of sprite 7 to 401
set the locV of sprite 7 to 199
set gRightHouseOpen = 0
puppetsprite 8, false
puppetsprite 7, false
updatestage
end